home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-03
/
menuman.zip
/
ADBOX.BAS
< prev
next >
Wrap
BASIC Source File
|
1992-04-06
|
1KB
|
44 lines
' For use with RUNMENU.BAS or as an example of text presentation
CLS
DIM AD$(17)
LOCATE 2, 20: PRINT STRING$(40, 15)
FOR SIDE = 3 TO 21
LOCATE SIDE, 20: PRINT CHR$(15); SPACE$(38); CHR$(15)
NEXT
LOCATE 22, 20: PRINT STRING$(40, 15)
AD$(1) = " Thanks for using MENUMAN"
AD$(2) = STRING$(35, 32)
AD$(3) = "If MENUMAN has been useful to you,"
AD$(4) = "please send $10 in check or money"
AD$(5) = "order to this address:"
AD$(6) = " Carmen Paone"
AD$(7) = " 1525 Locust St."
AD$(8) = " Reading, Pa."
AD$(9) = " 19604"
AD$(10) = STRING$(35, 32)
AD$(11) = "Please specify the size disk _ "
AD$(12) = "5.25 or 3.5 _ you would like."
AD$(13) = "Registered users of MENUMAN"
AD$(14) = "will receive updates free"
AD$(15) = "of charge. Planned updates:"
AD$(16) = "bounce-bar menus, Lotus-type"
AD$(17) = "menus, F-Key menus and others."
FOR SET = 1 TO 17
LOCATE SET + 3, 23: COLOR 15, 0: PRINT AD$(SET): COLOR 7, 0
NEXT
SLEEP 15
CLS
LOCATE 13, 20: PRINT "ADBOX.BAS WILL NOW CHAIN ITSELF TO RUNMENU.BAS"
SLEEP 10
RUN "RUNMENU"